unit StarSystemInfoInterface;

interface

type

  TMemoryInfo=record
    MemoryLoad:integer;
    TotalPhys:integer;
    AvailPhys:integer;
    TotalPageFile:integer;
    AvailPageFile:integer;
    TotalVirtual:integer;
    AvailVirtual:integer;
  end;

  TOSVersion=record
    MajorVersion: integer;
    MinorVersion: integer;
    BuildNumber: integer;
    PlatformId: integer;
    Version: string;
  end;

  IStarSystemInfo=interface
    ['{CBE4BD95-AE56-44F0-AD43-C3CAC665D45E}']
    function GetOSVersion:TOSVersion;
    function GetCPU:string;
    function GetMemoryInfo:TMemoryInfo;
  end;

implementation

end.
